home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / modula.arc / CRUNCH.MOD < prev    next >
Text File  |  1985-05-30  |  768b  |  35 lines
  1. (* Read a text and replace any sequence
  2.    of one or more blanks by a single blank. *)
  3.  
  4. MODULE crunch;
  5.  
  6. FROM InOut IMPORT Write, WriteLn, Read, Done, OpenInput;
  7.  
  8. CONST blank = ' ';
  9.  
  10. VAR ch: CHAR;
  11.  
  12. BEGIN
  13.   OpenInput('TEXT');
  14.   LOOP
  15.     Read(ch);
  16.     IF NOT Done THEN EXIT END;
  17.     Write(blank);
  18.     WHILE ch = blank DO Read(ch) END;
  19.     WHILE ch # 36C DO
  20.       REPEAT
  21.         Write(ch);
  22.         Read(ch);
  23.         IF NOT Done THEN EXIT END;
  24.       UNTIL ch = blank;
  25.       Write(blank);
  26.       LOOP
  27.         IF (ch # blank) OR (ch = 36C) THEN EXIT END;
  28.         Read(ch);
  29.         IF NOT Done THEN EXIT END
  30.       END
  31.     END;
  32.     WriteLn; Read(ch)
  33.   END
  34. END crunch.
  35.